﻿Namespace TypesOfLine
 Public Class INI_Base
  Inherits CollectionBase
  Protected mComment As String = Nothing
  Protected mSection As INI_Section = Nothing

  Public Sub New(Optional ByRef InSection As INI_Section = Nothing, Optional ByVal Comment As String = Nothing)
   mComment = Comment
   mSection = InSection
  End Sub
  Public Property Comment() As String
   Get
    Return mComment
   End Get
   Set(ByVal value As String)
    mComment = value
   End Set
  End Property
  Public Property Section() As INI_Section
   Get
    Return mSection
   End Get
   Set(ByVal value As INI_Section)
    mSection = value
   End Set
  End Property
  Public Function HasComment() As Boolean
   Return mComment IsNot Nothing
  End Function

 End Class
End Namespace

